home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / wsc4vb24 / atok.frm < prev    next >
Text File  |  1999-06-02  |  3KB  |  133 lines
  1. VERSION 5.00
  2. Begin VB.Form ATOK 
  3.    Caption         =   "ATOK"
  4.    ClientHeight    =   2475
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   4680
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   2475
  10.    ScaleWidth      =   4680
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.CommandButton bExit 
  13.       Caption         =   "EXIT"
  14.       Height          =   375
  15.       Left            =   360
  16.       TabIndex        =   4
  17.       Top             =   1920
  18.       Width           =   615
  19.    End
  20.    Begin VB.OptionButton oCOM2 
  21.       Caption         =   "COM2"
  22.       Height          =   375
  23.       Left            =   120
  24.       TabIndex        =   3
  25.       Top             =   480
  26.       Width           =   975
  27.    End
  28.    Begin VB.OptionButton oCOM1 
  29.       Caption         =   "COM1"
  30.       Height          =   255
  31.       Left            =   120
  32.       TabIndex        =   2
  33.       Top             =   120
  34.       Width           =   1095
  35.    End
  36.    Begin VB.TextBox eResult 
  37.       Height          =   1935
  38.       Left            =   1320
  39.       MultiLine       =   -1  'True
  40.       ScrollBars      =   2  'Vertical
  41.       TabIndex        =   1
  42.       Top             =   120
  43.       Width           =   3255
  44.    End
  45.    Begin VB.CommandButton bTest 
  46.       Caption         =   "Push to send 'AT'"
  47.       Height          =   735
  48.       Left            =   120
  49.       TabIndex        =   0
  50.       Top             =   960
  51.       Width           =   1095
  52.    End
  53. End
  54.  
  55. Attribute VB_Name = "ATOK"
  56. Attribute VB_GlobalNameSpace = False
  57. Attribute VB_Creatable = False
  58. Attribute VB_PredeclaredId = True
  59. Attribute VB_Exposed = False
  60.  
  61. Dim wsc As New wscClass   ' instantiates wsc class
  62. Dim ThePort As Long       ' COM port
  63. Dim TestState As Integer
  64.  
  65. Private Sub Sleep(ByVal MilliSec As Long)
  66. Dim Time As Long
  67. Time = SioTimer() + MilliSec
  68. While SioTimer() < Time
  69. Wend
  70. End Sub
  71.  
  72. Private Sub bExit_Click()
  73. Dim Code As Long
  74. Code = wsc.fDone(ThePort)
  75. End
  76. End Sub
  77.  
  78. Private Sub bTest_Click()
  79. Dim Code As Long
  80. Dim S As String
  81. Dim NL As String
  82. NL = Chr$(13) + Chr$(10)
  83. If TestState = 0 Then
  84.   ' open port
  85.   Code = wsc.fReset(ThePort, 128, 128)
  86.   If Code < 0 Then
  87.     S = GetErrorText(Code)
  88.     MsgBox S, , "fReset"
  89.     Exit Sub
  90.   End If
  91.   Code = wsc.fBaud(ThePort, 19200)
  92.   ' set DTR & RTS when talking to modem
  93.   Code = wsc.fDTR(ThePort, Asc("S"))
  94.   Code = wsc.fRTS(ThePort, Asc("S"))
  95.   ' transmit AT command (should delay between each character)
  96.   eResult.Text = eResult.Text + "Transmitting " + NL + "AT" + NL
  97.   Code = wsc.fPutc(ThePort, Asc("A"))
  98.   Call Sleep(20)
  99.   Code = wsc.fPutc(ThePort, Asc("T"))
  100.   Call Sleep(20)
  101.   Code = wsc.fPutc(ThePort, 13)
  102.   bTest.Caption = "Push to get Response"
  103.   TestState = 1
  104. Else
  105.   ' get response (expect "OK")
  106.   eResult.Text = eResult.Text + "Getting Response " + NL
  107.   Code = wsc.fGets(ThePort, 32)
  108.   If Code > 0 Then
  109.     S = wsc.ResultString
  110.     eResult.Text = eResult.Text + Left$(S, Code) + NL
  111.   Else
  112.     eResult.Text = eResult.Text + "No response!" + NL
  113.   End If
  114.   TestState = 0
  115.   bTest.Caption = "Push to send 'AT'"
  116.   Code = wsc.fDone(ThePort)
  117. End If
  118. End Sub
  119.  
  120. Private Sub Form_Load()
  121. ThePort = COM1
  122. TestState = 0
  123. oCOM1.Value = True
  124. End Sub
  125.  
  126. Private Sub oCOM1_Click()
  127. ThePort = COM1
  128. End Sub
  129.  
  130. Private Sub oCOM2_Click()
  131. ThePort = COM2
  132. End Sub
  133.